get HyperScan("ScanPortrait",rect of bkgnd button "Scan Area")
if it is empty then
lock screen
auto
unlock screen
end if
set hilite of me to false
checkError it
end mouseUp
-- part 84 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=380 top=100 right=122 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan 2
----- HyperTalk script -----
on mouseDown
put rect of bkgnd btn "Scan Area" into scanRect
put item 2 of scanRect into startTop
put item 4 of scanRect - item 2 of scanRect into height
if the optionKey is down then -- peek full extent
put scanRect into newRect
add height to item 4 of newRect
set rect of bkgnd button "Scan Area" to newRect
wait until the mouse is up
set rect of bkgnd button "Scan Area" to scanRect
else
repeat with row = 1 to 2
put startTop + (row-1) * height into newTop
put newTop into item 2 of scanRect
put newTop + height into item 4 of scanRect
get HyperScan("ScanPortrait",scanRect)
if it is not empty then exit mouseDown
lock screen
halftone
unlock screen
saveCard
end repeat
go to card number of cards - 1
end if
end mouseDown
-- part 85 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=380 top=130 right=152 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan 8
----- HyperTalk script -----
on mouseDown
put rect of bkgnd btn "Scan Area" into scanRect
put item 1 of scanRect into startLeft
put item 2 of scanRect into startTop
put item 3 of scanRect - item 1 of scanRect into width
put item 4 of scanRect - item 2 of scanRect into height
if the optionKey is down then -- peek full extent
put scanRect into newRect
add width to item 3 of newRect
add 3 * height to item 4 of newRect
set rect of bkgnd button "Scan Area" to newRect
wait until the mouse is up
set rect of bkgnd button "Scan Area" to scanRect
else
repeat with row = 1 to 4
repeat with col = 1 to 2
put startLeft + (col-1) * width into newLeft
put startTop + (row-1) * height into newTop
put newLeft into item 1 of scanRect
put newTop into item 2 of scanRect
put newLeft + width into item 3 of scanRect
put newTop + height into item 4 of scanRect
get HyperScan("ScanPortrait",scanRect)
if it is not empty then exit mouseDown
lock screen
halftone
unlock screen
saveCard
end repeat
end repeat
go to card number of cards - 7
end if
end mouseDown
-- part 86 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=380 top=159 right=181 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan 32
----- HyperTalk script -----
on mouseDown
put rect of bkgnd btn "Scan Area" into scanRect
put item 1 of scanRect into startLeft
put item 2 of scanRect into startTop
put item 3 of scanRect - item 1 of scanRect into width
put item 4 of scanRect - item 2 of scanRect into height
if the optionKey is down then -- peek full extent
put scanRect into newRect
add 3 * width to item 3 of newRect
add 7 * height to item 4 of newRect
set rect of bkgnd button "Scan Area" to newRect
wait until the mouse is up
set rect of bkgnd button "Scan Area" to scanRect
else
repeat with row = 1 to 8
repeat with col = 1 to 4
put startLeft + (col-1) * width into newLeft
put startTop + (row-1) * height into newTop
put newLeft into item 1 of scanRect
put newTop into item 2 of scanRect
put newLeft + width into item 3 of scanRect
put newTop + height into item 4 of scanRect
get HyperScan("ScanPortrait",scanRect)
if it is not empty then exit mouseDown
lock screen
halftone
unlock screen
saveCard
end repeat
end repeat
go to card number of cards - 31
end if
end mouseDown
-- part 97 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=289 top=289 right=335 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Panel Box
-- part 98 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=301 top=296 right=328 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 19137 / 19137
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
push card
visual effect zoom open
go card "Portrait Help"
end mouseUp
-- part 99 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=340 top=296 right=328 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 22989 / 22989
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Portrait
----- HyperTalk script -----
on mouseUp
go to card "Portrait"
end mouseUp
-- part 100 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=378 top=296 right=328 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 21718 / 21718
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Landscape
----- HyperTalk script -----
on mouseUp
go to card "Landscape"
end mouseUp
-- part 101 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=418 top=296 right=328 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 15217 / 15217
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Halftone
----- HyperTalk script -----
on mouseUp
go to card "Halftone"
end mouseUp
-- part 102 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=458 top=296 right=328 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 28277 / 28277
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Effects
----- HyperTalk script -----
on mouseUp
go to card "Effects"
end mouseUp
-- part 115 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=251 top=49 right=287 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Directions 1
-- part 116 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=251 top=10 right=287 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Directions 2
-- part 117 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=251 top=113 right=287 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Directions 3
-- part 118 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=264 top=259 right=281 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit
-- part 119 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=424 top=259 right=281 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
-- part 122 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=1 top=323 right=341 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 1300 / 1300
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
---find out WHERE on the icon you clicked
put (item 1 of the clickLoc) - (item 1 of the Loc of me) into E
---if the click was on the left then
if E < 0 then
set icon of me to 1301
wait 1
set icon of me to 1300
push card
put PathWay() & "SN Feedback" into feedPath
set cursor to watch
visual effect dissolve fast
go stack feedPath
---if the click was on the right then
else if E > 0 then
set icon of me to 1302
wait 1
set icon of me to 1300
global navMenu
visual effect iris close to black
visual effect iris open
if navMenu is empty then put "Welcome" into navMenu
go card navMenu of stack "Support Navigator:Support Navigator"
end if
end mouseUp
Function PathWay
put the long name of stack "Home" into NewName
delete char 1 to 7 of NewName
repeat
if offset(":",NewName) is 0 then
exit repeat
else
put char 1 to offset(":",NewName) of NewName after NewPath
delete char 1 to offset(":",NewName) of NewName
end if
end repeat
return NewPath
end PathWay
-- part contents for card part 115
----- text -----
This is the Portrait card. You use it to do the scan.
• Place the item you want to scan
face down on the scanner glass
with its top against the short ruler.
• Click Preview.
The beachball cursor spins while the scanner generates a preview image. You’ll use the preview image to select the actual area that will be scanned.
-- part contents for card part 116
----- text -----
The rectangle defines the edges of the card where the scanned image will appear. Move and resize the rectangle to select the part of the preview image you want to appear.
• Drag the center of the rectangle
to move it.
• Drag any corner of the rectangle
to resize it. When you resize the
rectangle, the scan area keeps
the same proportion as a card.
• When you are finished adjusting
the rectangle, click OK.
-- part contents for card part 117
----- text -----
• Click Scan to scan the area defined
by the rectangle.
The beachball cursor spins while the scanner generates the scanned image. Then HyperScan will take you to a card where you can adjust the brightness and contrast.
